home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / mac / Builders / media / netacess / hminet.dir / 00030_Script_30 < prev    next >
Text File  |  1997-04-04  |  777b  |  35 lines
  1. on exitFrame
  2.   global WebBrowser, softCancel
  3.   
  4.   --
  5.   -- test to see if AOL is registered
  6.   -- if it is, launch AOL
  7.   -- otherwise, give the user a choice...
  8.   --
  9.   
  10.   if the machineType = 256 then
  11.     set AOLRegStat = WebBrowser(mIsAOLRegistered)
  12.   else
  13.     set AOLRegStat = Browser( "AOLRegistered" )
  14.     
  15.     --
  16.     -- Note that returns for Mac and Windows are reversed
  17.     -- for this function
  18.     if AOLRegStat <> 0 then
  19.       set AOLRegStat = 0
  20.     else
  21.       set AOLRegStat = 1
  22.     end if
  23.     
  24.   end if
  25.   
  26.   if AOLRegStat <> 0 then
  27.     -- AOL is registered
  28.     set the text of cast "Status" to "AOL is not registered"
  29.     go "AOLLaunch"
  30.   else
  31.     set the text of cast "Status" to "AOL is registered"
  32.     go "AOLLaunch"
  33.   end if
  34.   
  35. end